home *** CD-ROM | disk | FTP | other *** search
- /* Copyright (C) 1997 Aladdin Enterprises. All rights reserved.
-
- This file is part of AFPL Ghostscript.
-
- AFPL Ghostscript is distributed with NO WARRANTY OF ANY KIND. No author or
- distributor accepts any responsibility for the consequences of using it, or
- for whether it serves any particular purpose or works at all, unless he or
- she says so in writing. Refer to the Aladdin Free Public License (the
- "License") for full details.
-
- Every copy of AFPL Ghostscript must include a copy of the License, normally
- in a plain ASCII text file named PUBLIC. The License grants you the right
- to copy, modify and redistribute AFPL Ghostscript, but only under certain
- conditions described in the License. Among other things, the License
- requires that the copyright notice and this notice be preserved on all
- copies.
- */
-
- /*$Id: gp_getnv.c,v 1.2 2000/09/19 19:00:24 lpd Exp $ */
- /* Standard implementation of gp_getenv */
- #include "stdio_.h"
- #include "string_.h"
- #include "gsmemory.h"
- #include "gstypes.h"
- #include "gp.h"
-
- /* Import the C getenv function. */
- extern char *getenv(P1(const char *));
-
- /* Get the value of an environment variable. See gp.h for details. */
- int
- gp_getenv(const char *key, char *ptr, int *plen)
- {
- const char *str = getenv(key);
-
- if (str) {
- int len = strlen(str);
-
- if (len < *plen) {
- /* string fits */
- strcpy(ptr, str);
- *plen = len + 1;
- return 0;
- }
- /* string doesn't fit */
- *plen = len + 1;
- return -1;
- }
- /* missing key */
- if (*plen > 0)
- *ptr = 0;
- *plen = 1;
- return 1;
- }
-